home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / demo / sound / Convergence_D1.lha / Install_HD < prev    next >
Text File  |  1997-03-20  |  10KB  |  300 lines
  1. ; **************************************
  2. ; *                                    *
  3. ; * Install Converegence To HD         *
  4. ; *                                    *
  5. ; * $VER: Install-Convergence (24.1.97)*
  6. ; *                                    *
  7. ; * Written by Andy Gibson (SKiDZ/A51) *
  8. ; *                                    *
  9. ; * Copyright © 1997 AGAS Productions  *
  10. ; * All Rights Reserved                *
  11. ; *                                    *
  12. ; * Permission to AREA51 Granted - Use *
  13. ; * it freely with any produxionz  :^) *
  14. ; *                                    *
  15. ; **************************************
  16. ;
  17. ; * For AppName etc., Check out the Icons Tooltypes by clicking on the
  18. ; * HD Install Icon once and selecting Information from the Icons Menu
  19. ; * via WB.
  20. ;
  21. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  22. ;
  23. ; ********************************
  24. ; * Set up some global variables *
  25. ; ********************************
  26. ;
  27.  (set app_name        "Convergence")              ;Applictaion name
  28.  (set disk1name       "MoDZ_1")                   ;Actual name of Disk 1
  29.  (set disk2name       "MoDZ_2")                   ;Actual name of Disk 2
  30.  (set copycrmlib      "Copying CrM.library")      ;Text to display .....
  31.  (set copyptrlib      "Copying ptreplay.library") ;
  32.  (set copydflib       "Copying Diskfont.libary")  ;
  33.  (set copymathlib     "Copying Mathtrans.libary") ;
  34.  (set copymods        "Copying Modz")             ;
  35.  (set copyexe         "Copying Main Files")       ;
  36.  (set copyfonts       "Copying Font Files")       ;
  37. ;
  38. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  39. ;
  40. ; *** Set up the installation message first ...
  41.  (set install-msg
  42.    (cat ;use "cat" or "message" but "message" won't show "HELP" button!!!
  43.      "\n"
  44.      "AREA 51 PReSeNTS\n\n\n"
  45.       app_name " Vol.#1\n\n"
  46.      "Hard Disk Installer By SKiDZ/A51\n\n\n"
  47.      "Follow the on-screen text and press HELP if\n"
  48.      "you don't understand a function :^)"
  49.  ))
  50. ;
  51. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  52. ;
  53. ; *** Show the above Installation Message right here ... and HELP ...
  54.  (message install-msg
  55.        (Help
  56.              "\n\n"
  57.              "             "app_name " Vol.1 Installer Help"
  58.              "\n\n"
  59.              " This routine uses the official Commodore Installer \n"
  60.              "\n"
  61.              " You will be asked in which Dir/Partition you would \n"
  62.              " like the files to be installed into. Simply follow \n"
  63.              " the on-screen text.     All required files will be \n"
  64.              " copied to your chosen destination.    A drawer/dir \n"
  65.              " named AREA51 will be made by this installer."
  66.  ))
  67. ;
  68. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  69. ; 
  70.  (complete 0) ; *** Simply update percentage atop screen.
  71. ;
  72. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  73. ;
  74. ; *** Check for disk 1. If not in drive, ask and wait for it.
  75.  (askdisk
  76.  (prompt    "\n\n\n\n\n" ; *** A few blank lines!!!
  77.             "Please insert the disk labeled `"
  78.              Disk1Name "'"
  79.             "\n"
  80.             "into any drive of your choice.")
  81.  (help      "\n" @askdisk-help)
  82.  (dest Disk1Name)
  83.  )
  84. ;
  85. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  86. ;
  87. ; *** Copy the required Libs to LIBS: path ...
  88. ; *** If the library is already in LIBS: This installer will check which
  89. ; *** version is there and won't copy the libs from floppy if older.  :)
  90. ;
  91.  (working   "\nChecking for required Libraries ...\n\n"
  92.             "If old versions are found, I can\n"
  93.             "copy new ones across for you :-)"
  94.  )
  95.  (copylib (prompt copyptrlib)
  96.           (help @copylib-help)
  97.           (source "MoDZ_1:libs/ptreplay.library")
  98.           (dest "LIBS:")
  99.           (optional nofail force askuser)
  100.  (confirm)
  101.  )
  102.  (complete 5)
  103.  (copylib (prompt copymathlib)
  104.           (help @copylib-help)
  105.           (source "MoDZ_1:libs/Mathtrans.library")
  106.           (dest "LIBS:")
  107.           (optional nofail force askuser)
  108.  (confirm)
  109.  )
  110.  (complete 10)
  111.  (copylib (prompt copydflib)
  112.           (help @copylib-help)
  113.           (source "MoDZ_1:libs/diskfont.library")
  114.           (dest "LIBS:")
  115.           (optional nofail force askuser)
  116.  (confirm)
  117.  )
  118.  (complete 15)
  119. ;
  120. ; *** We unpack our crunched files with CrM.Library.    I've included
  121. ; *** my own `Registerd' lib, so I want it to be copied over to peeps
  122. ; *** HD even if they have the CrM.library ;^)  Chances are that they
  123. ; *** they might have the demo version's, so mine MUST be copied! :-)
  124. ; *** It's faster than the demo version anyway, so it's a must.
  125.  (copyfiles
  126.           (prompt copycrmlib  " To Libs:")
  127.           (help @copyfiles-help)
  128.           (source "MoDZ_1:libs/CrM.library")
  129.           (dest "LIBS:")
  130.           (Optional "force") ; ** Overwrite even if Protected :^)
  131.  )
  132.  (complete 20)
  133. ;
  134. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  135. ;
  136. ; *** Copy the required fonts to FONTS: path ...
  137. ; *** Always copied even if they are in FONTS: - No problems :^)
  138. ;
  139.  (copyfiles
  140.       (prompt copyfonts  " To FONTS:")
  141.       (help @copyfiles-help)
  142.       (source "MoDZ_1:Fonts")
  143.       (dest "FONTS:")
  144.       (all)
  145.       (fonts)
  146.       (infos)
  147.       (Optional "force") ; ** Overwrite even if Protected :^)
  148.  )
  149.  (complete 30)
  150. ;
  151. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  152. ; ;
  153. ; *** Ask user where they want to install the files to ...
  154. ;
  155.  (set a51_dest
  156.  (askdir
  157.  (prompt    "Please choose where you want to install files too.\n"
  158.             "(A drawer named `AREA51' will be made for you)")
  159.  (help      "\n"
  160.             "  Please choose a path where you want to install the\n"
  161.             "  files to on your hard drive.\n\n"
  162.             "  eg. `Work:Demos'\n\n"
  163.             "  A drawer named AREA51 will be made automatically\n"
  164.             "  for you. So there is no need to do that yourself.\n\n"
  165.             "  eg. You choose `Work:Demos' to install it to.\n"
  166.             "      The files would then be installed to:\n"
  167.             "      `Work:Demos/AREA51'")
  168.  (default @default-dest) ; *** used for requestor. Default is Work:
  169.  ))
  170. ;
  171. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  172. ;
  173.  (set @default-dest a51_dest) ; *** Hold users destination here
  174. ;
  175. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  176. ;
  177. ; *** Make Directory named AREA51 in users defined path + icon ...
  178. ;
  179.  (working   "Creating the `AREA51' Directory now in "
  180.              a51_dest) ; See above for path setting...
  181.  (makedir
  182.  (tackon a51_dest "AREA51") ; *** Add AREA51 Dir to users path.
  183.  (infos) ; *** Add an icon to it also :-)
  184.  )
  185.  (complete 35)
  186. ;
  187.  (working   "Creating the `MoDZ' Directory now in `AREA51'")
  188.  (makedir
  189.  (tackon a51_dest "AREA51/MoDZ")
  190.  )
  191.  (complete 40)
  192. ;
  193. ; *** Update path to AREA51 Directory now in user's path ...
  194.  (set a51_dest (tackon a51_dest "AREA51"))
  195.  (set @default-dest a51_dest) ; Hold path of AREA51 Dir
  196. ;
  197. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  198. ;
  199. ; *** Simply copy the required files to AREA51 Directory ...
  200. ;
  201. ; *** The actual Intro Exe File ...
  202.  (copyfiles
  203.       (prompt copygame  " To " a51_dest)
  204.       (help @copyfiles-help)
  205.       (source "MoDZ_1:Convergence.exe")
  206.       (dest a51_Dest)
  207.       (Optional "force") ; ** Overwrite even if Protected :^)
  208.  )
  209.  (complete 50)
  210. ;
  211. ; *** Since the pack requires Assignments, we simply copy a script and
  212. ; *** an Icon. Uses IconX as default tool. This will run the pack with
  213. ; *** all assignments required from HD)
  214.  (copyfiles
  215.       (prompt copygame  " To " a51_dest)
  216.       (help @copyfiles-help)
  217.       (source "MoDZ_1:HD_Only/MoDZ_HD")
  218.       (dest a51_Dest)
  219.       (infos) ; New Icon to run script to add assigns and run the game.
  220.       (Optional "force") ; ** Overwrite even if Protected :^)
  221.  )
  222.  (complete 60)
  223. ;
  224. ;
  225. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  226. ; 
  227. ; *** We need to alter path to MoDZ Directory held in AREA51 Directory.
  228. ; *** sub Directory named MoDZ was set up earlier - see above.
  229. ;
  230.  (set a51_dest2 (tackon a51_dest "MoDZ"))
  231.  (set @default-dest a51_dest2) ; Hold as destination 2
  232. ;
  233.  (copyfiles
  234.       (prompt copydata  " To " a51_dest2)
  235.       (help @copyfiles-help)
  236.       (source "ModZ_1:MoDZ")
  237.       (dest a51_Dest2)
  238.       (all)
  239.       (Optional "force") ; ** Overwrite even if Protected :^)
  240.  )
  241.  (complete 70)
  242. ;
  243. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  244. ;
  245. ; *** Check for disk 2. If not in drive, ask and wait for it.
  246.  (askdisk
  247.  (prompt    "\n\n\n\n\n" ; *** A few blank lines!!!
  248.             "Please insert the disk labeled `"
  249.              Disk2Name "'"
  250.             "\n"
  251.             "into any drive of your choice.")
  252.  (help      "\n" @askdisk-help)
  253.  (dest Disk2Name)
  254.  )
  255. ;
  256. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  257. ;
  258. ; *** Copy files from MoDZ Dir of disk 2 (MoDZ_2) to HD ...
  259.  (copyfiles
  260.       (prompt copydata  " To " a51_dest2)
  261.       (help @copyfiles-help)
  262.       (source "ModZ_2:ModZ")
  263.       (dest a51_Dest2)
  264.       (all)
  265.       (Optional "force") ; ** Overwrite even if Protected :^)
  266.  )
  267.  (complete 90)
  268. ;
  269. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  270.  
  271. ; *** Final message displayed now ...
  272. ;
  273.  (set @default-dest a51_dest) ; *** Hold users destination here
  274. ;
  275.  (complete 100)
  276. ;
  277.  (exit      "Please remove any disks before\n"
  278.             "loading from hard disk.\n\n"
  279.             "(^;  ENJOY DIZ ReLeASe  :^)\n\n"
  280.             "AREA 51 Keeping The Amiga ALIVE"
  281.  )
  282. ;
  283. ; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  284. ;
  285. ; If you use this script for your own production(s), please give me a
  286. ; credit somewhere above. That's all I ask for my hard work involved.
  287. ; Andy Gibson of AGAS Productions 1997 (aka SKiDZ/A51)
  288. ;
  289. ; Message to Slade....Modify this for future HD Installers for da mag
  290. ; if ya wish m8.  Just gimme a little credit (SKiDZ/A51) Cheerz :^)
  291. ;
  292. ; Message to anyone else.....
  293. ;
  294. ; Please help keep the Amiga alive by not spreading Copyrighted Software!
  295. ; If you have a pirated title in yer collection, scrap it NOW!!! Purchase
  296. ; the original via mail order today. It's cheap and you'll keep our great
  297. ; machine alive for another few years - maybe 8^P  SKiDZ/A51
  298. ;
  299. ;
  300.